﻿Public Class AgregarUsuario


    Private mMantenimientoBE As BE.Usuarios
    Private mMantenimientoBS As BS.Usuarios


    Public Sub AgregarPerfil()
        Dim Perfil(1) As String
        Perfil(0) = "Cajero"
        Perfil(1) = "Administrador"
        Array.Sort(Perfil)
        cbPerfil.Items.AddRange(Perfil)
        cbPerfil.SelectedIndex = 0
    End Sub

    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click

        Me.mMantenimientoBS = New BS.Usuarios()
        If DatosValidos() Then

            Me.mMantenimientoBE = New BE.Usuarios()

            Me.mMantenimientoBE.NombreCompleto = txtNombreCompleto.Text
            Me.mMantenimientoBE.Identificacion = txtIdentificacion.Text
            Me.mMantenimientoBE.NombreUsuario = txtUsuario.Text
            Me.mMantenimientoBE.Contraseña = txtContraseña.Text
            Me.mMantenimientoBE.Perfil = cbPerfil.SelectedIndex
            Me.mMantenimientoBE.Estado = 1
            Me.mMantenimientoBE.FechaCreacion = Date.Now

            Try
                mMantenimientoBS.Agregar(mMantenimientoBE)
            Catch ex As Exception
                MessageBox.Show("Problemas al Insertar Los datos")
            End Try

            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If

    End Sub


    Function DatosValidos() As Boolean

        Dim primerControl As Control = Nothing
        Dim mensajeDeValidacion As String = String.Empty

        Me.txtNombreCompleto.Text = txtNombreCompleto.Text.Trim
        Me.txtIdentificacion.Text = txtIdentificacion.Text.Trim
        Me.txtUsuario.Text = txtUsuario.Text.Trim
        Me.txtContraseña.Text = txtContraseña.Text.Trim


        If Me.txtNombreCompleto.Text = String.Empty Then
            mensajeDeValidacion = "Nombre es Requerido"
            primerControl = Me.txtNombreCompleto
        End If

        If Me.txtIdentificacion.Text = String.Empty Then
            mensajeDeValidacion = "Identificacion"
            primerControl = Me.txtIdentificacion
        End If

        If Me.txtUsuario.Text = String.Empty Then
            mensajeDeValidacion = "Nombre de Usuario Requerido"
            primerControl = Me.txtUsuario
        End If

        If Me.txtContraseña.Text = String.Empty Then
            mensajeDeValidacion = "Contraseña Requerida"
            primerControl = Me.txtContraseña
        End If

        If Not primerControl Is Nothing Then
            MessageBox.Show(mensajeDeValidacion, "Validación", MessageBoxButtons.OK)
            primerControl.Focus()
        End If
        Return True

    End Function


    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub


    Private Sub AgregarUsuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AgregarPerfil()
    End Sub
End Class